unit Class_Demo;

interface
uses
  System.Classes,System.SysUtils;

type
  TDemo=class(TObject)
  public
    DemoName:string;
    DemoCode:string;
    DemoMemo:string;
  public
    function GetDemoName:string;
  end;

implementation

{ TDemo }

function TDemo.GetDemoName: string;
begin
  Result:=Format('kazarus.x6.learn:%S',[DemoName]);
end;

end.
